home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 8
/
The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO
/
pcboard
/
csver72.zip
/
VERIFY.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-09-08
|
26KB
|
2,176 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
;------------------------------------------------------------------------------
Cls
INTEGER002 = "314"
STRING001 = PPEPath() + "VERIFY.CFG"
STRING008 = ReadLine(STRING001, 8)
STRING013 = ReadLine(STRING001, 6)
STRING014 = ReadLine(STRING001, 7)
STRING012 = ReadLine(STRING001, 1)
INTEGER004 = ReadLine(STRING001, 2)
INTEGER003 = ReadLine(STRING001, 3)
STRING004 = ReadLine(STRING001, 9)
STRING009 = PPEPath() + "VERIFY.LOG"
STRING022 = INTEGER004 * INTEGER002
STRING023 = (INTEGER004 * INTEGER002) / 2
STRING015 = (INTEGER004 * INTEGER002) / 2 + "10" + "2000" - "1500" + STRING022 - STRING023
STRING010 = ReadLine(STRING001, 4)
STRING006 = ReadLine(STRING001, 5)
STRING002 = PCBMac("@BOARDNAME@")
GetUser
FAppend 1, STRING009, 2, 0
FPutLn 1, "CSVerify Opened By ", U_Name(), " On ", Date()
STRING024 = "N"
If (AnsiOn()) Gosub LABEL002
:LABEL001
Select Case (STRING006)
Case "Y"
Gosub LABEL003
Case "y"
Gosub LABEL003
Case "Yes"
Gosub LABEL003
Case "yes"
Gosub LABEL003
Case "YES"
Gosub LABEL003
Case Else
Gosub LABEL004
End Select
:LABEL002
FPutLn 1, "Ansi Mode is Enabled"
STRING024 = "Y"
Gosub LABEL001
:LABEL003
FPutLn 1, "Entering Caller I.D. Mode Now..."
FPutLn 1, "CALLER I.D. REPORTED NAME: ", U_Name()
FPutLn 1, "CALLER I.D. REPORTED PHONE: ", CallId()
STRING025 = CallId()
Gosub LABEL005
:LABEL004
FPutLn 1, "Entering Normal Verify Mode Now..."
:LABEL005
STRING017 = U_Name()
STRING019 = U_Pwd
STRING020 = U_Ver
INTEGER006 = U_HVPhone
STRING021 = U_BDPhone
PutUser
Cls
Newlines 3
PrintLn " @X0ACSVerify v0.72@X07"
PrintLn " @X09Created By: CompuSoft Technologies@X07"
STRING026 = "N"
If (INTEGER003 == STRING015) Then
STRING026 = "Y"
Gosub LABEL006
Else
STRING026 = "N"
Gosub LABEL006
Endif
:LABEL006
If (STRING012 == STRING002) Then
Gosub LABEL007
Else
STRING026 = "N"
Gosub LABEL007
Endif
:LABEL007
If (STRING026 == "Y") Then
Gosub LABEL008
Else
STRING008 = "N"
Gosub LABEL009
Endif
:LABEL008
Select Case (STRING008)
Case "Y"
Gosub LABEL009
Case "y"
Gosub LABEL009
Case Else
Gosub LABEL010
End Select
:LABEL009
If (STRING026 == "Y") Then
PrintLn " @X0ERegistered To: @X0F", STRING012, "@X07"
Delay 30
Gosub LABEL011
Else
PrintLn "@X0C CSVerify is UNRegistered! Please Encourage Your SysOp to Register...@X07"
Delay 50
Gosub LABEL011
Endif
:LABEL010
Delay 30
Gosub LABEL011
:LABEL011
Cls
Select Case (STRING006)
Case "Y"
Gosub LABEL013
Case "y"
Gosub LABEL013
Case "Yes"
Gosub LABEL013
Case "yes"
Gosub LABEL013
Case "YES"
Gosub LABEL013
Case Else
Gosub LABEL018
End Select
:LABEL012
Cls
Print "Retrieving Caller I.D. Name..."
STRING003 = Chr(8)
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Delay 10
PrintLn "√ DONE!"
Newline
Print "Retrieving Caller I.D. Phone Number..."
STRING003 = Chr(8)
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Delay 10
PrintLn "√ DONE!"
Delay 10
Gosub LABEL019
:LABEL013
If (STRING024 == "N") Then
Gosub LABEL012
Else
Cls
Endif
Newlines 10
PrintLn "@X0E Caller I.D. Mode Enabled....@X07"
Delay 25
Cls
Newlines 5
PrintLn " @X0AGetting Caller I.D. Information@X07"
PrintLn " @X0F╒══════════════════════════════════════════════════════════════════════╕@X07"
PrintLn " @X0F│ @X0F│@X07"
PrintLn " @X0F╞══════════════════════════════════════════════════════════════════════╡@X07"
PrintLn " @X0F│ @X09[ ] @X0E Getting Name from Caller I.D. @X0F│@X07"
PrintLn " @X0F│ @X09[ ] @X0EGetting Phone Number from Caller I.D. @X0F│@X07"
PrintLn " @X0F│ @X0F│@X07"
PrintLn " @X0F╘══════════════════════════════════════════════════════════════════════╛@X07"
Gosub LABEL015
Gosub LABEL016
Gosub LABEL014
:LABEL014
Gosub LABEL015
Gosub LABEL017
AnsiPos 7, 8
Print " "
AnsiPos 40, 8
Print "@X0CDONE!@X07"
Delay 30
Gosub LABEL034
:LABEL015
AnsiPos 7, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 7, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Return
:LABEL016
AnsiPos 25, 10
Print "@X0A√@X07"
Return
:LABEL017
AnsiPos 25, 11
Print "@X0A√@X07"
Return
:LABEL018
Gosub LABEL019
:LABEL019
Cls
DispFile PPEPath() + "VERIFY.NFO", 0
:LABEL020
Newline
STRING027 = "C"
InputText "@X0E(@X0C@TIMELEFT@ @X0Emin left), (C)ontinue CSVerify or (A)bort@X07", STRING027, 14, 1
Print "@X07"
Select Case (STRING027)
Case "C"
Gosub LABEL021
Case "c"
Gosub LABEL021
Case "A"
Gosub LABEL040
Case "a"
Gosub LABEL040
Case "*"
Newline
Newline
STRING005 = "1"
Gosub LABEL045
Gosub LABEL019
Case Else
Gosub LABEL020
End Select
:LABEL021
Cls
PrintLn " @X09Verifying @X0A@USER@ @X09on @X0A@X0A", Date(), "@X09 at @X0A", Time(), "@X07"
Newlines 2
GetUser
Input "@X0EEnter your User I.D. (Name)@X07", STRING016
STRING016 = Upper(STRING016)
GetUser
Newlines 2
PrintLn "@X0EEnter Your ", STRING013, " Phone Number@X07"
Input "@X07", INTEGER005
Newlines 2
PrintLn "@X0EEnter Your ", STRING014, " Phone@X07"
Input "@X07", INTEGER007
Newlines 2
PrintLn "@X0EEnter Your Password For ", STRING012, "@X07"
Input "@X07", STRING018
STRING018 = Upper(STRING018)
PutUser
Gosub LABEL026
:LABEL022
Cls
Print "Checking User Name..."
STRING003 = Chr(8)
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Delay 10
GetUser
If (STRING016 == STRING017) Then
Print "√ PASSED!"
FPutLn 1, "User Passed Name Verification"
PutUser
Gosub LABEL023
Else
Print "X FAILED!"
FPutLn 1, "User FAILED Name Verification"
STRING011 = "N"
PutUser
Gosub LABEL023
Endif
:LABEL023
Newline
Print "Checking ", STRING013, " Phone Number..."
STRING003 = Chr(8)
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Delay 10
GetUser
If (INTEGER005 == INTEGER006) Then
Print "√ PASSED!"
FPutLn 1, "User Passed ", STRING013, " Phone Verification"
PutUser
Gosub LABEL024
Else
Print "X FAILED!"
FPutLn 1, "User FAILED ", STRING013, " Verification"
STRING011 = "N"
PutUser
Gosub LABEL024
Endif
:LABEL024
Newline
Print "Checking ", STRING014, " Phone Number..."
STRING003 = Chr(8)
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Delay 10
GetUser
If (INTEGER007 == STRING021) Then
Print "√ PASSED!"
FPutLn 1, "User Passed ", STRING014, " Phone Verification"
PutUser
Gosub LABEL025
Else
Print "X FAILED!"
FPutLn 1, "User FAILED ", STRING014, " Verification"
STRING011 = "N"
PutUser
Gosub LABEL025
Endif
:LABEL025
Newline
Print "Checking Password..."
STRING003 = Chr(8)
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Delay 10
GetUser
If (STRING018 == STRING019) Then
Print "√ PASSED!"
FPutLn 1, "User Passed Password Verification"
PutUser
Gosub LABEL030
Else
Print "X FAILED!"
FPutLn 1, "User FAILED Password Verification"
STRING011 = "N"
PutUser
Gosub LABEL030
Endif
:LABEL026
If (STRING024 == "N") Then
Gosub LABEL022
Else
Cls
Endif
Cls
Newlines 5
PrintLn " @X0EVerifying Information....@X07"
PrintLn "@X0F╒═════════════════════════════════════════════════════════════════════════╕@X07"
PrintLn "@X0F│ @X0F│@X07"
PrintLn "@X0F╞═════════════════════════════════════════════════════════════════════════╡@X07"
PrintLn "@X0F│ @X09[ ] @X0ACHECKING USER NAME @X09[ ] @X0ACHECKING ", STRING013, " PHONE NUMBER@X0F@POS:75@│@X07"
PrintLn "@X0F│ @X0F│@X07"
PrintLn "@X0F│ @X09[ ] @X0ACHECKING ", STRING014, " PHONE@POS:38@@X09[ ] @X0ACHECKING PASSWORD @X0F │@X07"
PrintLn "@X0F│ @X07X @X07= FAILED CHECK √ = PASSED CHECK @X0F│@X07"
PrintLn "@X0F╘═════════════════════════════════════════════════════════════════════════╛@X07"
FPutLn 1, "Verifing Information Entered By User"
STRING011 = "Y"
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (STRING016 == STRING017) Then
AnsiPos 9, 10
Print "@X0C√@X07"
FPutLn 1, "User Passed Name Verification"
PutUser
Gosub LABEL027
Else
AnsiPos 9, 10
Print "@X0CX@X07"
FPutLn 1, "User FAILED Name Verification"
STRING011 = "N"
PutUser
Gosub LABEL027
Endif
:LABEL027
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (INTEGER005 == INTEGER006) Then
AnsiPos 39, 10
Print "@X0C√@X07"
FPutLn 1, "User Passed Phone #1 Verification"
PutUser
Gosub LABEL028
Else
AnsiPos 39, 10
Print "@X0CX@X07"
FPutLn 1, "User FAILED Phone #1 Verification"
STRING011 = "N"
PutUser
Gosub LABEL028
Endif
:LABEL028
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (INTEGER007 == STRING021) Then
AnsiPos 9, 12
Print "@X0C√@X07"
FPutLn 1, "User Passed Phone #2 Verification"
PutUser
Gosub LABEL029
Else
AnsiPos 9, 12
Print "@X0CX@X07"
FPutLn 1, "User FAILED Phone #2 Verification"
STRING011 = "N"
PutUser
Gosub LABEL029
Endif
:LABEL029
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (STRING018 == STRING019) Then
AnsiPos 39, 12
Print "@X0C√@X07"
FPutLn 1, "User Passed Password Verification"
PutUser
Gosub LABEL030
Else
AnsiPos 39, 12
Print "@X0CX@X07"
FPutLn 1, "User FAILED Password Verification"
STRING011 = "N"
PutUser
Gosub LABEL030
Endif
:LABEL030
Newline
Select Case (STRING011)
Case "Y"
AnsiPos 1, 15
PrintLn " @X0AYou Passed The Verification...@X07"
Delay 25
Cls
DispFile PPEPath() + "PASS.NFO", 0
Gosub LABEL031
Case "N"
AnsiPos 1, 15
PrintLn "@X0C Sorry, You did not enter all the correct information!@X07"
Delay 25
Cls
DispFile PPEPath() + "FAIL.NFO", 0
Wait
Gosub LABEL040
Case Else
AnsiPos 1, 15
PrintLn "@X8C ERROR! ERROR! An Error has accured in the program. Notify SysOp!!@X07"
Delay 75
Gosub LABEL040
End Select
:LABEL031
GetUser
U_Sec = STRING010
PutUser
Wait
Gosub LABEL040
Cls
Print "Checking User Name..."
STRING003 = Chr(8)
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Delay 10
GetUser
If (STRING016 == STRING017) Then
Print "√ PASSED!"
FPutLn 1, "User Passed Name Verification"
PutUser
Gosub LABEL032
Else
Print "X FAILED!"
FPutLn 1, "User FAILED Name Verification"
STRING011 = "N"
PutUser
Gosub LABEL032
Endif
:LABEL032
Newline
Print "Checking Caller I.D. Phone Number..."
STRING003 = Chr(8)
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Delay 10
GetUser
Select Case (STRING025)
Case U_HVPhone
Print "√ PASSED!"
PutUser
Gosub LABEL033
Case U_BDPhone
Print "√ PASSED!"
FPutLn 1, "User Passed Caller I.D. Phone Verification"
PutUser
Gosub LABEL033
Case Else
Print "X FAILED!"
FPutLn 1, "User FAILED Caller I.D. Phone Verification"
STRING011 = "N"
PutUser
Gosub LABEL033
End Select
:LABEL033
Newline
Print "Checking Password..."
STRING003 = Chr(8)
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Print "/"
Delay 5
Print STRING003
Print "-"
Delay 5
Print STRING003
Print "\"
Delay 5
Print STRING003
Delay 10
GetUser
If (STRING018 == STRING019) Then
Print "√ PASSED!"
FPutLn 1, "User Passed Password Verification"
PutUser
Gosub LABEL039
Else
Print "X FAILED!"
FPutLn 1, "User FAILED Password Verification"
STRING011 = "N"
PutUser
Gosub LABEL039
Endif
:LABEL034
Cls
DispFile PPEPath() + "CIDVERIF.NFO", 0
:LABEL035
STRING028 = "C"
InputText "@X0E(@X0C@TIMELEFT@ @X0Emin left), (C)ontinue CSVerify or (A)bort@X07", STRING028, 14, 1
Print "@X07"
Select Case (STRING028)
Case "C"
Gosub LABEL036
Case "c"
Gosub LABEL036
Case "A"
Gosub LABEL040
Case "a"
Gosub LABEL040
Case "*"
Newline
Newline
STRING005 = "2"
Gosub LABEL045
Gosub LABEL034
Case Else
Gosub LABEL035
End Select
:LABEL036
Cls
PrintLn " @X09Verifying @X0A@USER@ @X09on @X0A@X0A", Date(), "@X09 at @X0A", Time(), "@X07"
Newlines 2
GetUser
STRING016 = U_Name()
PrintLn "@X0EEnter Your Password For ", STRING012, "@X07"
Input "", STRING018
STRING018 = Upper(STRING018)
PutUser
Cls
Newlines 5
PrintLn " @X0EVerifying Information....@X07"
PrintLn "@X0F╒═════════════════════════════════════════════════════════════════════════╕@X07"
PrintLn "@X0F│ @X0F│@X07"
PrintLn "@X0F╞═════════════════════════════════════════════════════════════════════════╡@X07"
PrintLn "@X0F│ @X09[ ] @X0ACHECKING USER NAME @X09[ ] @X0ACHECKING CALLER I.D. PHONE @X0F│@X07"
PrintLn "@X0F│ @X0F│@X07"
PrintLn "@X0F│ @X09[ ] @X0ACHECKING PASSWORD @X0F │@X07"
PrintLn "@X0F│ @X07X @X07= FAILED CHECK √ = PASSED CHECK @X0F│@X07"
PrintLn "@X0F╘═════════════════════════════════════════════════════════════════════════╛@X07"
STRING011 = "Y"
FPutLn 1, "Verifing Information Entered By User"
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (STRING016 == STRING017) Then
AnsiPos 9, 10
Print "@X0C√@X07"
FPutLn 1, "User Passed Name Verification"
PutUser
Gosub LABEL037
Else
AnsiPos 9, 10
Print "@X0CX@X07"
FPutLn 1, "User FAILED Name Verification"
STRING011 = "N"
PutUser
Gosub LABEL037
Endif
:LABEL037
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
Select Case (STRING025)
Case U_HVPhone
AnsiPos 39, 10
Print "@X0C√@X07"
PutUser
Gosub LABEL038
Case U_BDPhone
AnsiPos 39, 10
Print "@X0C√@X07"
FPutLn 1, "User Passed Caller I.D. Phone Verification"
PutUser
Gosub LABEL038
Case Else
AnsiPos 39, 10
Print "@X0CX@X07"
FPutLn 1, "User FAILED Caller I.D. Phone Verification"
STRING011 = "N"
PutUser
Gosub LABEL038
End Select
:LABEL038
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (STRING018 == STRING019) Then
AnsiPos 26, 12
Print "@X0C√@X07"
FPutLn 1, "User Passed Password Verification"
PutUser
Gosub LABEL039
Else
AnsiPos 26, 12
Print "@X0CX@X07"
STRING011 = "N"
FPutLn 1, "User FAILED Password Verification"
PutUser
Gosub LABEL039
Endif
:LABEL039
Newline
Select Case (STRING011)
Case "Y"
AnsiPos 1, 15
PrintLn " @X0AYou Passed The Verification...@X07"
FPutLn 1, "USER PASSED VERIFICATION AND WILL BE UPGRADED"
Delay 25
Cls
DispFile PPEPath() + "PASS.NFO", 0
Wait
Gosub LABEL031
Case "N"
AnsiPos 1, 15
PrintLn "@X0C Sorry, You did not enter all the correct information!@X07"
FPutLn 1, "USER FAILED VERIFICATION AND WILL NOT BE UPGRADED"
Delay 25
Cls
DispFile PPEPath() + "FAIL.NFO", 0
Wait
Gosub LABEL040
Case Else
AnsiPos 1, 15
PrintLn "@X8C ERROR! ERROR! An Error has accured in the program. Notify SysOp!!@X07"
Delay 75
Gosub LABEL040
End Select
:LABEL040
Cls
Newlines 2
PrintLn " @X0ACSVerify v0.72@X07"
PrintLn " @X09Created By: CompuSoft Technologies@X07"
FPutLn 1, "End of Program - Verification Complete or User Aborted"
FPutLn 1, "-----------------------------------------------------------------------------"
If (STRING026 == "N") Then
STRING008 = "N"
Gosub LABEL042
Else
Gosub LABEL041
Endif
:LABEL041
Select Case (STRING008)
Case "Y"
Gosub LABEL042
Case "y"
Gosub LABEL042
Case Else
Gosub LABEL044
End Select
:LABEL042
If (STRING026 == "Y") Then
PrintLn "@X0E Registered To: @X0F", STRING012, "@X07"
Delay 25
Gosub LABEL043
Else
PrintLn "@X0C CSVerify is UNRegistered! Please Encourage Your SysOp to Register...@X07"
FPutLn 1, " CSVerify Is UNREGISTERED!"
FPutLn 1, "-----------------------------------------------------------------------------"
Delay 200
Gosub LABEL043
Endif
:LABEL043
FClose 1
Newlines 1
PrintLn " @X09T@X0Ah@X0Ba@X0Cn@X0Dk @X0EY@X0Fo@X07u @X09F@X0Ao@X0Br @X0CU@X0Ds@X0Ei@X0Fn@X07g @X09CS@X0CV@X0Ee@X0Fr@X0Ai@X0Cf@X0By@X0F@X01!@X07"
Newlines 3
PrintLn "@X0E Returning to @X4A", STRING012, "@X0E, Please Wait...@X07"
Delay 35
End
:LABEL044
FClose 1
Newlines 1
PrintLn " @X09T@X0Ah@X0Ba@X0Cn@X0Dk @X0EY@X0Fo@X07u @X09F@X0Ao@X0Br @X0CU@X0Ds@X0Ei@X0Fn@X07g @X09CS@X0CV@X0Ee@X0Fr@X0Ai@X0Cf@X0By@X0F@X01!@X07"
Newlines 3
PrintLn "@X0E Returning to BBS@X0E, Please Wait...@X07"
Delay 55
End
:LABEL045
Input "@X0EEnter The SysOp Password@X07", STRING029
If (STRING029 == STRING004) Then
FPutLn 1, "ENTERED SYSOP'S AREA AT: ", Time()
Gosub LABEL046
Else
Gosub LABEL049
Endif
:LABEL046
Cls
PrintLn " @X19╒════════════════════════════════════════════════════════════════════@X10╕@X07"
PrintLn " @X19│ @X1A CSVerify's System Operators Menu@X10 │@X07"
PrintLn " @X19╞@X10════════════════════════════════════════════════════════════════════╡@X07"
PrintLn " @X19│ @X1E(@X1FV@X1E)iew CSVerify Verification Log@X10 │@X07"
PrintLn " @X19│ @X1E(@X1FD@X1E)elete CSVerify Verification Log @X10 │@X07"
PrintLn " @X19│ @X1E(@X1FC@X1E)hange My Security Level@X10 │@X07"
PrintLn " @X19│ @X1E(@X1F7@X1E) Edit Users Information @X10 │@X07"
PrintLn " @X19│ @X1E(@X1F9@X1E) Exit to Dos (No Comfirmation) @X10 │@X07"
PrintLn " @X19│ @X10 │@X07"
PrintLn " @X19│ @X1E(NOTE: YOU MAY EXECUTE ANY PCBOARD VALID COMMAND FROM THIS PROMPT)@X10 │@X07"
PrintLn " @X10╘════════════════════════════════════════════════════════════════════╛@X07"
STRING030 = ""
InputText "@X0EEnter Command, (@X0FQ@X0E)uit back to Main Menu@X07", STRING030, 14, 15
Select Case (STRING030)
Case "V"
Gosub LABEL047
Case "v"
Gosub LABEL047
Case "C"
Gosub LABEL048
Case "c"
Gosub LABEL048
Case "Q"
FPutLn 1, "EXITED SYSOP'S AREA AT: ", Time()
Gosub LABEL049
Case "q"
FPutLn 1, "EXITED SYSOP'S AREA AT: ", Time()
Gosub LABEL049
Case "7"
Newline
Newline
Delay 5
FPutLn 1, "EXECUTED SYSOP `7' COMMAND AT: ", Time()
Command 0, "7"
Delay 8
Gosub LABEL046
Case "9"
Newline
Newline
Delay 5
FPutLn 1, "EXITED TO DOS AT: ", Time()
FPutLn 1, "End of Program - Exited to Dos"
FPutLn 1, "-----------------------------------------------------------------------------"
Command 0, "9 y"
Case "D"
Newline
Newline
Delay 10
Print "@X0ADELETING FILE 'VERIFY.LOG'"
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
FClose 1
FCreate 1, PPEPath() + "verify.log", 1, 0
FClose 1
Delete PPEPath() + "verify.log"
Print "@X0AFILE DELETED!@X07"
Delay 20
GetUser
FAppend 1, PPEPath() + "verify.log", 1, 0
FPutLn 1, " CSVerify Verification Log File"
FPutLn 1, "-----------------------------------------------------------------------------"
FPutLn 1, "CSVerify Log File Deleted on ", Date(), " at ", Time(), " BY: ", U_Name()
FPutLn 1, "-----------------------------------------------------------------------------"
FClose 1
Gosub LABEL046
Case "d"
Newline
Newline
Delay 10
Print "@X0ADELETING FILE 'VERIFY.LOG'"
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
Print "@X0C."
Delay 3
FClose 1
FCreate 1, PPEPath() + "verify.log", 1, 0
FClose 1
Delete PPEPath() + "verify.log"
FAppend 1, PPEPath() + "verify.log", 1, 0
FPutLn 1, " CSVerify Verification Log File"
FPutLn 1, "-----------------------------------------------------------------------------"
FPutLn 1, " CSVerify Log File Deleted on ", Date(), " at ", Time(), " BY: ", U_Name()
FPutLn 1, "-----------------------------------------------------------------------------"
FClose 1
Print "@X0AFILE DELETED!@X07"
Newline
Newline
PrintLn "@X0AExiting CSVerify to avoid Log entree..."
PrintLn "@X0A Please Re-Enter After getting to command prompt"
Delay 85
Gosub LABEL050
Case Else
Newline
Newline
STRING007 = STRING030
Command 0, STRING007
FPutLn 1, "EXECUTED COMMAND `", STRING007, "' AT: ", Time()
Delay 10
Gosub LABEL046
End Select
:LABEL047
Cls
FPutLn 1, "VIEWED LOG FILE AT: ", Time()
FClose 1
DispFile PPEPath() + "verify.log", 0
FAppend 1, STRING009, 2, 0
Wait
Gosub LABEL046
:LABEL048
Cls
GetUser
PrintLn "@X09 System Operators Security Level Change@X07"
PrintLn "@X0AYour Current Security Level is: @X07@SECURITY@@X07"
Newline
STRING031 = "*"
InputText "@X0EEnter New Security Level, Enter (@X0F*@X0E) to Abort@X07", STRING031, 14, 5
If (STRING031 == "*") Then
Gosub LABEL046
Else
FPutLn 1, "CHANGED SECURITY LEVEL TO ", STRING031, " AT: ", Time()
U_Sec = STRING031
PutUser
Gosub LABEL046
Endif
:LABEL049
Cls
Select Case (STRING005)
Case "1"
Gosub LABEL019
Case "2"
Gosub LABEL034
Case Else
PrintLn "@X0CAn Error has accured, Exiting program... TELL SYSOP!!@X07"
Gosub LABEL040
End Select
:LABEL050
Cls
Newlines 2
PrintLn " @X0ACSVerify v0.72@X07"
PrintLn " @X09Created By: CompuSoft Technologies@X07"
If (STRING026 == "N") Then
STRING008 = "N"
Gosub LABEL052
Else
Gosub LABEL051
Endif
:LABEL051
Select Case (STRING008)
Case "Y"
Gosub LABEL042
Case "y"
Gosub LABEL052
Case Else
Gosub LABEL054
End Select
:LABEL052
If (STRING026 == "Y") Then
PrintLn "@X0E Registered To: @X0F", STRING012, "@X07"
Delay 25
Gosub LABEL053
Else
PrintLn "@X0C CSVerify is UNRegistered! Please Encourage Your SysOp to Register...@X07"
Delay 200
Gosub LABEL053
Endif
:LABEL053
FClose 1
Newlines 1
PrintLn " @X09T@X0Ah@X0Ba@X0Cn@X0Dk @X0EY@X0Fo@X07u @X09F@X0Ao@X0Br @X0CU@X0Ds@X0Ei@X0Fn@X07g @X09CS@X0CV@X0Ee@X0Fr@X0Ai@X0Cf@X0By@X0F@X01!@X07"
Newlines 3
PrintLn "@X0E Returning to @X4A", STRING012, "@X0E, Please Wait...@X07"
Delay 35
End
:LABEL054
FClose 1
Newlines 1
PrintLn " @X09T@X0Ah@X0Ba@X0Cn@X0Dk @X0EY@X0Fo@X07u @X09F@X0Ao@X0Br @X0CU@X0Ds@X0Ei@X0Fn@X07g @X09CS@X0CV@X0Ee@X0Fr@X0Ai@X0Cf@X0By@X0F@X01!@X07"
Newlines 3
PrintLn "@X0E Returning to BBS@X0E, Please Wait...@X07"
Delay 55
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 4 End
; 25 Cls
; 5 Wait
; 140 Goto
; 69 Let
; 745 Print
; 77 PrintLn
; 71 If
; 7 DispFile
; 6 Input
; 2 FCreate
; 4 FAppend
; 11 FClose
; 60 FPutLn
; 21 GetUser
; 35 PutUser
; 2 Delete
; 121 Gosub
; 3 Return
; 536 Delay
; 26 Newline
; 20 Newlines
; 4 InputText
; 41 AnsiPos
; 3 Command
;
;
; ■ Functions used :
;
; 3 *
; 2 /
; 18 +
; 2 -
; 70 ==
; 70 !
; 3 Upper()
; 9 Chr()
; 5 Date()
; 12 Time()
; 6 U_Name()
; 15 PPEPath()
; 9 ReadLine()
; 2 CallId()
; 1 AnsiOn()
; 1 PCBMac()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WH
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; H - Read Password or Password History ■ 5
; Program is reading the user's password or last password history
; This may be ok for a password manager, but it is very suspect. Check!
; ■ Search for : U_PWDHIST, U_PWD
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 24 If/Then or If/Then/Else
; 13 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------
(.txt)
(.txt)